Option Explicit
Sub Q_Sample048()
    ']wޥζ Windows Script Host Object Model
    Dim myWshNw   As IWshRuntimeLibrary.WshNetwork
    Dim myWshNwDr As IWshRuntimeLibrary.WshCollection
    Dim i         As Long
    Dim myStr     As String
    Set myWshNw = CreateObject("Wscript.Network")
    Set myWshNwDr = myWshNw.EnumNetworkDrives
    With myWshNwDr
    For i = 0 To .Count - 1 Step 2
        myStr = myStr & .Item(i) & _
            " = " & .Item(i + 1) & vbCrLf
    Next
    End With
    MsgBox myStr
    Set myWshNwDr = Nothing					'
    Set myWshNw = Nothing
End Sub
